
(defvar send-mail-function (quote sendmail-send-it) "Function to call to send the current buffer as mail.
The headers are be delimited by \"--text follows this line--\"")

(defvar mail-abbrevs-loaded nil "")

(defvar mail-mode-map nil "")

(defun mail (&optional noerase to subject in-reply-to cc replybuffer) "\
Edit a message to be sent.  Argument means resume editing (don't erase).
Returns with message buffer seleted; value t if message freshly initialized.
While editing message, type C-c C-c to send the message and exit.

Various special commands starting with C-c are available in sendmail mode
to move to message header fields.  Type C-c? for a list of them.

If mail-self-blind is non-nil, a bcc to yourself is inserted
when the message is initialized.

If mail-setup-hook is bound, its value is called with no arguments
after the message is initialized.  It can add more default fields.

When calling from a program, the second through fifth arguments
 TO, SUBJECT, CC and IN-REPLY-TO specify if non-nil
 the initial contents of those header fields.
 These arguments should not have final newlines.
The sixth argument REPLYBUFFER is a buffer whose contents
 should be yanked if the user types C-c y." (interactive "P") (byte-code "Ɉ��!���!���	!�� �
?�3 � ?�! ��!�3 � ��%��" [default-directory auto-save-default noerase to subject in-reply-to cc replybuffer t nil switch-to-buffer "*mail*" expand-file-name "~/" auto-save-mode mail-mode buffer-modified-p y-or-n-p "Unsent message being composed; erase it? " erase-buffer mail-setup] 15))

(defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer) "\
Like \"mail\" command, but display mail buffer in another window." (interactive "P") (byte-code "Ɉ��!���!���	!�� �
?�3 � ?�! ��!�3 � ��%��" [default-directory auto-save-default noerase to subject in-reply-to cc replybuffer t nil pop-to-buffer "*mail*" expand-file-name "~/" auto-save-mode mail-mode buffer-modified-p y-or-n-p "Unsent message being composed; erase it? " erase-buffer mail-setup] 15))

(defun mail-setup (to subject in-reply-to cc replybuffer) (byte-code "	��eb��c��
�< ��``\"�
c�eb���#�7 ���!��!\"�ed\"�c)�8 �)�= Èdb�� ��R ���#�S È�b ���#�c È���l ��#�	�} ��� �#�~ È�c)�
�� db�� È
�� �� �� �!���!�� 
�� �
!�" [mail-reply-buffer replybuffer to nil t string cc in-reply-to subject mail-self-blind mail-setup-hook "To: " narrow-to-region re-search-forward "<\\([^>
]*\\)>" buffer-substring match-beginning 1 match-end delete-region newline insert "Cc: " "
" "In-reply-to: " "Subject: " "" "Bcc: " user-login-name "--text follows this line--
" set-buffer-modified-p boundp funcall] 31))

(defun mail-mode nil "\
Major mode for editing mail to be sent.
Like Text Mode but with these additional commands:
C-c C-s mail-send (send the message)    C-c C-c  mail-send-and-exit
C-c t  mail-to  (move to To: field)	C-c s  mail-subject (move to Subj:)
C-c b  mail-bcc (move to Bcc: field)    C-c c  mail-cc  (move to Cc: field)
C-c w  mail-signature (insert ~/.signature at end).
C-c y  mail-yank-original (insert current message, in rmail)." (interactive) (byte-code "��� ���!�	���
!�� � ��!���Љ�щ���!���!��P���	P�	���!�Q 
�Q �
!�" [mail-reply-buffer nil text-mode-syntax-table mail-mode-map local-abbrev-table text-mode-abbrev-table major-mode mode-name paragraph-start paragraph-separate mail-mode-hook kill-all-local-variables make-local-variable set-syntax-table mail-set-local-keys use-local-map mail-mode "Mail" "^--text follows this line--$\\|^[ 	]*[-_][-_][-_]+$\\|" boundp funcall] 19))

(defun mail-set-local-keys nil (byte-code "� ���!����#����#����#����#����#����#����#����#����#�" [mail-mode-map make-keymap use-local-map define-key "?" describe-mode "t" mail-to "b" mail-bcc "c" mail-cc "w" mail-signature "s" mail-subject "y" mail-yank-original "" mail-send-and-exit "" mail-send] 15))

(defun mail-send-and-exit nil "\
Send message like mail-send, then, if no errors, exit from mail buffer." (interactive) (byte-code "��� ���!� �p!� ���� !� =�% ��p!!�' � �" [nil mail-send fboundp bury-buffer next-window selected-window switch-to-buffer other-buffer delete-window] 14))

(defun mail-send nil "\
Send the message in the current buffer.
If  mail-interactive  is non-nil, wait for success indication
or error messages, and inform user.
Otherwise any failure is reported in a message back to
the user from the mailer." (interactive) (byte-code "���!�" [send-mail-function nil funcall] 3))

(defun sendmail-send-it nil (byte-code "	�
 ��!� ������!��db�dSf�U�' �c�eb���!���!���!�� ��eb���
#�K `
W�U ��!��? �eb�����
#�m ��!�n ƈێ����ed���&�� �\"�� �� D	?�� 肗 �#\"))�	?�� �q�� �U)�� ��!��!�� ��q�eb���#�� ��!��� ��ed\"�)�eb���!��!����\"!)-�" [errbuf mail-interactive delimline subjline subjstr case-fold-search nil t msg get-buffer-create "*Sendmail Errors*" 0 message "Sending..." 10 "
" search-forward "
--text follows this line--
" replace-match "

" backward-char 1 dot-marker re-search-forward "


*" "^Subject:[ 	]*
" "" ((byte-code "b��		#��c�" [delimline nil set-marker "--text follows this line--"] 4)) apply call-process-region append list "/usr/lib/sendmail" "-oi" "-t" equal user-real-login-name "root" "-f" user-login-name ("-oem" "-odb") buffer-size "Sending...done" set-buffer-modified-p "

* *" "; " buffer-substring mail-position-on-field "to" display-buffer error format "Sending...failed to %s"] 51))

(defun mail-to nil "\
Move dot to end of To-field." (interactive) (byte-code "��� ���!�" [nil expand-abbrev mail-position-on-field "to"] 4))

(defun mail-subject nil "\
Move dot to end of Subject-field." (interactive) (byte-code "��� ���!�" [nil expand-abbrev mail-position-on-field "subject"] 4))

(defun mail-cc nil "\
Move dot to end of CC-field.  Create a CC field if none." (interactive) (byte-code "��� ���\"� ��!��c�" [t nil expand-abbrev mail-position-on-field "cc" "to" "
Cc: "] 7))

(defun mail-bcc nil "\
Move dot to end of BCC-field.  Create a BCC field if none." (interactive) (byte-code "��� ���\"� ��!��c�" [t nil expand-abbrev mail-position-on-field "bcc" "to" "
Bcc: "] 7))

(defun mail-position-on-field (field &optional soft beg) (byte-code "�
eb���
#� `� d��eb����!�Q
#�2 �- � �
�D ?�D b���!����#*�" [end case-fold-search t nil field beg soft search-forward "

" re-search-forward "^" regexp-quote ":" mail-end-of-field skip-chars-backward "
" insert ": "] 19))

(defun mail-end-of-field nil (byte-code "� ���!� ��!��  �" [end-of-line looking-at "
[ 	]" forward-char 1] 6))

(defun mail-signature nil "\
Sign letter with contents of ~/.signature file." (interactive) (byte-code "���db����!!)�" [nil insert-file-contents expand-file-name "~/.signature"] 5))

(defun mail-yank-original (arg) "\
Insert the message being replied to, if any (in rmail).
Puts dot before the text and mark after.
Indents each nonblank line ARG spaces (default 3).
Just \\[universal-argument] as argument means don't indent
and don't delete any header fields." (interactive "P") (byte-code "È�@ `�!��!�
:� �- �	a\"��	a
�+ �
!�, �#�� �l?�; �c�< �)�A Ç" [mail-reply-buffer start arg nil delete-windows-on insert-buffer mail-yank-clear-headers indent-rigidly prefix-numeric-value 3 exchange-dot-and-mark 10] 16))

(defun mail-yank-clear-headers (start end) (byte-code "�b���	
#�7 ��`\"�b�
�
#)�3 � ��`��!���!�`\"�� )�8 �)�" [start end t case-fold-search mail-yank-ignored-headers nil search-forward "

" narrow-to-region re-search-forward beginning-of-line delete-region "
[^ 	]" forward-char -1] 15))
